home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d6 / finpak.arc / FINPAK.BAS next >
BASIC Source File  |  1985-11-08  |  17KB  |  365 lines
  1. 10 DIM Z$(5)
  2. 20 DIM M$(5)
  3. 21 PR$="####.##%"
  4. 22 V$="$$#,###,###,###.##"
  5. 23 I$="###.##%"
  6. 24 D$="--------------------------------------------------------------------------------"
  7. 25 KEY OFF
  8. 26 I2$="##"
  9. 27 Y$="Y":N$="N"
  10. 30 DEFDBL J,B,R,A,Q,P,T,Y
  11. 40 CLS
  12. 50 PRINT D$;
  13. 60 PRINT SPC(38);"MENU"
  14. 70 PRINT D$;
  15. 80 PRINT "(1) Future Value of Investment                  (11) Depreciated Investment"
  16. 90 PRINT
  17. 100 PRINT "(2) Future Value of Annuity                     (12) Salvage Value Year End"
  18. 110 PRINT
  19. 120 PRINT "(3) Future Value of Savings                     (13) Discounted Commercial Paper"
  20. 140 PRINT "(4) Withdrawals From Investment                 (14) Loan Principal"
  21. 150 PRINT
  22. 160 PRINT "(5) Minimum Investment for Income               (15) Loan Payment Schedules"
  23. 170 PRINT
  24. 180 PRINT "(6) Income From Investments                     (16) Final Loan Payments"
  25. 185 PRINT
  26. 190 PRINT "(7) Nominal Interest Rates                      (17) Remaining Loan Balance"
  27. 200 PRINT
  28. 210 PRINT "(8) Effective Interest Rates                    (18) Loan Repayment Periods"
  29. 220 PRINT
  30. 230 PRINT "(9) Earned Interest Table                       (19) Loan Annual Interest Rate"
  31. 240 PRINT
  32. 250 PRINT "(10) Annual Depreciation Rate                   (20) Mortgage Amortization Table"
  33. 255 LOCATE 23,1,1
  34. 260 PRINT D$;
  35. 270 INPUT "Select a Program by Number (0 to Exit): ";Z
  36. 280 IF Z=0 THEN 5000
  37. 290 ON Z GOTO 330,510,690,880,1100,1330,1560,1780,1960,2030,2230,2420,2610
  38. 300 IF Z>14 THEN Z1=Z-13
  39. 310 ON Z1 GOTO 2820,2980,3170,3410,3670,3850,3910
  40. 320 GOTO 40
  41. 330 GOSUB 4500
  42. 340 PRINT"                         #1 Future Value of Investment":PRINT D$;
  43. 345 LOCATE 23,1:PRINT D$;
  44. 350 LOCATE 8,1:INPUT "Enter the Initial Value of Investment: ";P:LOCATE 8,63:PRINT USING V$;P
  45. 360 INPUT "Enter Nominal Interest Rate: ";I:LOCATE 10,63:PRINT USING I$;I
  46. 410 PRINT:INPUT "Enter Number of Compounding Periods Each Year: ";N:LOCATE 12,63:PRINT N
  47. 420 PRINT
  48. 430 INPUT "Enter Number of Years for the Investment: ";Y:LOCATE 14,63:PRINT Y
  49. 440 PRINT
  50. 450 I=I/N/100
  51. 460 T=P*(I+1)^(N*Y):PRINT:PRINT
  52. 470 PRINT"Future Value of This Investment is: ";:LOCATE 18,63:COLOR 15,8:PRINT USING V$;T:COLOR 7
  53. 480 LOCATE 25,1:INPUT "Want Another Future Value Calculation (Y or N): ";ANS$
  54. 490 IF LEFT$(ANS$,1)=Y$ THEN 330 ELSE 40
  55. 510 GOSUB 4500:PRINT"                   Future Value of Regular Deposits - Annunity":PRINT D$;
  56. 515 LOCATE 23,1:PRINT D$;
  57. 550 LOCATE 8,1:INPUT "Enter Amount of Regular Deposit: ";R
  58. 560 LOCATE 8,63:PRINT USING V$;R
  59. 570 LOCATE 10,1:INPUT "Enter Nominal Interest Rate: ";I:LOCATE 10,65:PRINT USING I$;I
  60. 590 PRINT:INPUT "Enter Number of Deposits Each Year: ";N:LOCATE 12,65:PRINT N
  61. 610 PRINT:INPUT "Enter the Number of Years: ";Y:LOCATE 14,65:PRINT Y
  62. 620 I=I/N/100
  63. 630 T=R*((I+1)^(N*Y)-1)/I
  64. 650 PRINT:PRINT "FUTURE VALUE IS: ";:LOCATE 16,63:COLOR 10,8:PRINT USING V$;T:COLOR 7
  65. 660 LOCATE 25,1:INPUT "Another Future Value Calculation (Y or N): ";ANS$
  66. 670 IF LEFT$(ANS$,1)="y" THEN 510 ELSE CLS: GOTO 40
  67. 690 GOSUB 4500
  68. 700 PRINT "                    Future Value of Annuity or Savings Account"
  69. 710 GOSUB 4510
  70. 720 LOCATE 8,1:INPUT "Enter Desired Future Value: ";T:LOCATE 8,63:PRINT USING V$;T
  71. 740 INPUT "Enter Nominal Interest Rate: ";I:LOCATE 10,63:PRINT USING I$;I
  72. 750 PRINT:INPUT "Enter Number of Deposits Per Year: ";N:LOCATE 12,63:PRINT N
  73. 780 PRINT:INPUT "Enter the Number of Years: ";Y:LOCATE 14,63:PRINT Y
  74. 790 I=I/N/100
  75. 800 R=T*I/((I+1)^(N*Y)-1)
  76. 802 R$=STR$(R):T$=STR$(T)
  77. 804 L1=LEN(R$):L2=LEN(T$)
  78. 810 PRINT:PRINT:PRINT"Regular deposits of: ";:COLOR 10,8:LOCATE 17,(22-(13-L1)):PRINT USING V$;R;:COLOR 7:PRINT" will yield:";:PRINT USING V$;T:PRINT" in: ";Y;" years"
  79. 820 LOCATE 25,1:INPUT "Another run (Y or N): ";ANS$
  80. 830 IF LEFT$(ANS$,1)="Y" THEN 690 ELSE 40
  81. 880 GOSUB 4500:PRINT"                      Regular Wuthdrawals from an Investment":PRINT D$:LOCATE 23,1:PRINT D$;
  82. 910 LOCATE 8,1:INPUT "Enter the amount of your initial investment: ";P:LOCATE 8,63:PRINT USING V$;P
  83. 920 INPUT "Enter nominal interest rate: ";I:LOCATE 10,63:PRINT I
  84. 940 PRINT:INPUT "Enter the number of withdrawals each year: ";N:LOCATE 12,63:PRINT N
  85. 950 PRINT:INPUT "Enter the number of years: ";Y:LOCATE 14,63:PRINT Y
  86. 970 I=I/N/100
  87. 980 R=P*(I/((I+1)^(N*Y)-1)+I)
  88. 990 LOCATE 18,1:PRINT"You may withdraw: ";:COLOR 15:PRINT USING V$;R;:COLOR 7:PRINT" from your account: ";N:PRINT"times per year for : ";Y;" years without reducing your initial investment"
  89. 1070 LOCATE 24,1:INPUT "Do you want another calculation (Y or N): ";ANS$
  90. 1080 IF ANS$="Y" THEN 880 ELSE 40
  91. 1100 GOSUB 4500:PRINT"                   INVESTMENT REQUIRED TO PROVIDE FUTURE VALUE":GOSUB 4510
  92. 1110 LOCATE 8,1:INPUT "Enter amount you wish to end up with: ";T:LOCATE 8,63:PRINT USING V$;T
  93. 1120 INPUT "Enter the number of compounding periods each year: ";N:LOCATE 10,63:PRINT N
  94. 1130 PRINT:INPUT "Enter the number of years for this investment: ";Y:LOCATE 12,63:PRINT Y
  95. 1140 PRINT:INPUT "Enter the nominal interest rate: ";I:LOCATE 14,63:PRINT I
  96. 1220 I1=I
  97. 1230 I=I/N/100
  98. 1240 P=T/(I+1)^(N*Y)
  99. 1250 LOCATE 18,1:PRINT"You must invest: ";:COLOR 15:PRINT USING V$;P;:COLOR 7:PRINT" to yield: ";:PRINT USING V$;T
  100. 1260 LOCATE 24,1:INPUT "Do you want to make another calculation: ";ANS$
  101. 1270 IF ANS$="Y" THEN 1100 ELSE 40
  102. 1330 GOSUB 4500:PRINT"                         MINIMUM INVESTMENT FOR INCOME";:PRINT D$:LOCATE 23,1:PRINT D$;:LOCATE 8,1
  103. 1380 INPUT "Enter number of withdrawals each year: ";N:LOCATE 8,63:PRINT USING V$;Y
  104. 1390 INPUT "Enter amount of each withdrawal: ";R:LOCATE 10,63:PRINT USING V$;R
  105. 1420 INPUT "Enter the nominal interest rate: ";I:LOCATE 12,63:PRINT USING I$;I
  106. 1430 PRINT:INPUT "Withdrawal to occur for how many years: ";Y:LOCATE 14,63:PRINT Y
  107. 1450 I1=I
  108. 1460 I=I/100
  109. 1470 P=R*N/I*(1-1/((1+I/N)^(N*Y)))
  110. 1490 LOCATE 18,1:PRINT"A minimum investment of: ";:COLOR 15:PRINT USING V$;P;:COLOR 7:PRINT" will yeild your desired return"
  111. 1500 LOCATE 24,1:INPUT "Do you want another calculation (Y or N): ";ANS$
  112. 1510 IF ANS$="Y" THEN 1330 ELSE 40
  113. 1560 CLS:PRINT D$:PRINT"                     NOMINAL INTEREST ON INVESTMENTS:":PRINT D$:LOCATE 23,1:PRINT D$;
  114. 1570 LOCATE 8,1:INPUT "Enter the amount of the principal: ";P:LOCATE 8,63:PRINT USING V$;P
  115. 1580 INPUT "Enter total amount of investment: ";T:LOCATE 10,63:PRINT USING V$;T
  116. 1630 INPUT "Enter the number of years of the investment: ";Y:LOCATE 12,63:PRINT Y
  117. 1670 PRINT:INPUT "Enter the comounding periods each year: ";N:LOCATE 14,63:PRINT N
  118. 1680 I2=N*((T/P)^(1/(N*Y))-1)*100
  119. 1700 LOCATE 18,1:PRINT "The nominal interest rate for the above parameters is: ";:COLOR 15:PRINT I2;:COLOR 7
  120. 1710 LOCATE 25,1:INPUT "Do you want another calculation (Y or N): ";ANS$
  121. 1720 IF ANS$="Y" THEN 1560 ELSE 40
  122. 1780 GOSUB 4500:PRINT"                        EFFECTIVE INTEREST ON INVESTMENTS";:GOSUB 4510
  123. 1830  LOCATE 8,1:INPUT "Enter the amount of the initial investment";P:LOCATE 8,63:PRINT USING V$;P
  124. 1850  INPUT "Enter the desired future value: ";T:LOCATE 10,63:PRINT USING V$;T
  125. 1870  INPUT "Enter the life of the investment in years";Y:LOCATE 12,72:PRINT Y;"Years"
  126. 1880  A=((T / P) ^ (1 / Y) - 1) * 100
  127. 1900  LOCATE 14,1:PRINT"The effective annual interest rate of the investment is:";:COLOR 10,8:PRINT USING PR$;A:COLOR 7
  128. 1930 LOCATE 25,1:INPUT "Do you want to run another (Y or N): ";ANS$:IF LEFT$(ANS$,1)=Y$ THEN 1780 ELSE 40
  129. 1940  PRINT : IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 1780
  130. 1950  GOTO 40
  131. 1960  REM  EARNED INTEREST TABLE
  132. 1970  CLS:PRINT D$
  133. 1980  PRINT "#9 EARNED INTEREST TABLE FOR INVESTMENT"
  134. 1990  PRINT 
  135. 2000  PRINT D$
  136. 2010  PRINT "  ******** UNDER CONSTRUCTION ********"
  137. 2020  FOR I = 1 TO 2000: NEXT I: GOTO 40
  138. 2030  REM  DEPRECIATION RATE ON INVESTMENT
  139. 2040  GOSUB 4500
  140. 2050  PRINT "                   ANNUAL DEPRECIATION RATE OF AN INVESTMENT"
  141. 2060  GOSUB 4510
  142. 2080  LOCATE 8,1:INPUT "Enter the Original Price of the Item";P:LOCATE 8,63:PRINT USING V$;P
  143. 2100  INPUT "Enter the Resale Price of the Item";T:LOCATE 10,63:PRINT USING V$;T
  144. 2120  INPUT "Enter the Item's Life in Years";Y:LOCATE 12,73:PRINT USING I2$;Y;:PRINT" Years"
  145. 2140 D = 100 * (1 - (T / P) ^ (1 / Y))
  146. 2160  LOCATE 16,1:PRINT "If You Purchased This Item for:";:PRINT USING V$;P;:PRINT" and Sold it ";:PRINT USING I2$;Y;:PRINT" Years Later-"
  147. 2180  PRINT "for: ";:PRINT USING V$;T;:PRINT", the Actual Depreciation Rate is: ";:COLOR 10,8:PRINT USING PR$;D:COLOR 7
  148. 2200  LOCATE 25,1:INPUT "Another Run (Y or N): ";ANS$
  149. 2210  IF  LEFT$ (ANS$,1) = "Y" THEN 2040 ELSE 40
  150. 2230  REM  CALCULATE THE AMOUNT OF DEPREC OF AN ITEM
  151. 2240  GOSUB 4500
  152. 2250  PRINT "                        AMOUNT DEPRECIATED WITHIN A YEAR"
  153. 2260  GOSUB 4510
  154. 2270  LOCATE 8,1:INPUT "Enter the Original Price of the Item:";P:LOCATE 8,63:PRINT USING V$;P
  155. 2280  PRINT 
  156. 2290 K = 100
  157. 2300  INPUT "WHAT PERCENT DO YOU WANT TO DEPRECIATE";I
  158. 2310  PRINT 
  159. 2320 I = I / 100
  160. 2330  PRINT : FOR Y = 1 TO K
  161. 2340 D = P * I * (1 - I) ^ (Y - 1)
  162. 2350  PRINT "YEAR #";Y;"DEPRECIATION IS $"; D: PRINT 
  163. 2360 X = X + 1: IF X = 5 THEN X = 0
  164. 2370  PRINT "PRESS RETURN FOR MORE": INPUT X$: PRINT 
  165. 2380  IF D >  = 2 THEN  NEXT Y
  166. 2390  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  167. 2400  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2230
  168. 2410  GOTO 40
  169. 2420  CLS:PRINT D$
  170. 2430  PRINT "   #12 CALCULATE THE SALVAGE VALUE"
  171. 2440  PRINT "              OF AN ITEM..."
  172. 2450  PRINT D$
  173. 2460  INPUT "ENTER THE ORIGINAL PRICE OF THE ITEM";P
  174. 2470  PRINT 
  175. 2480  INPUT "ENTER THE ITEM'S DEPRECIATION RATE";I
  176. 2490  PRINT 
  177. 2500 K = 100
  178. 2510  FOR Y = 1 TO K
  179. 2520 S =  P * (1 - I / 100) ^ Y
  180. 2530  PRINT "YEAR #";Y;"SALVAGE VALUE IS $";S
  181. 2540  PRINT 
  182. 2550 X = X + 1: IF X = 5 THEN X = 0
  183. 2560  PRINT "PRESS RETURN FOR MORE": INPUT X$: PRINT 
  184. 2570  IF S >  = 2 THEN  NEXT Y
  185. 2580  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  186. 2590  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2420
  187. 2600  GOTO 40
  188. 2610  REM  FIND AMOUNT OF DISC PAPER
  189. 2620  CLS:PRINT D$
  190. 2630  PRINT "#13 CALCULATE THE NET COST OF DISCOUNTED"
  191. 2640  PRINT "                 PAPER.."
  192. 2650  PRINT D$
  193. 2660  PRINT 
  194. 2670  INPUT "ENTER THE FUTURE VALUE OF THE NOTE";T
  195. 2680  INPUT "ENTER THE DISCOUNT RATE";D
  196. 2690  PRINT 
  197. 2700  INPUT "ENTER THE NUMBER OF DAYS TO MATURITY";N
  198. 2710 D = D / 100
  199. 2720 D1 = T * D * N / 360
  200. 2730  PRINT 
  201. 2740  PRINT "IF YOU PURCHASE A NOTE WORTH $";T
  202. 2750  PRINT "                DUE IN";N;"DAYS"
  203. 2760  PRINT "AT A DISCOUNT RATE OF";D * 100;"PERCENT,"
  204. 2770  PRINT "THE DISCOUNT AMOUNT WILL BE $";D1
  205. 2780  PRINT "AND THE COST WILL BE $";T - D1;" ."
  206. 2790  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  207. 2800  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2610
  208. 2810  GOTO 40
  209. 2820  CLS:PRINT D$
  210. 2830  PRINT  TAB( 5)"#14  PRINCIPAL ON A LOAN"
  211. 2840  PRINT 
  212. 2850  PRINT D$
  213. 2860  INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  214. 2870  PRINT 
  215. 2880  INPUT "WHAT IS THE AMOUNT OF EACH PAYMENT";R
  216. 2890  PRINT 
  217. 2900  INPUT "WHAT IS THE LOAN ANNUAL INTEREST RATE";I
  218. 2910  PRINT 
  219. 2920  INPUT "ENTER THE LIFE OF THE LOAN IN YEARS";Y
  220. 2930 P = R * N * (1 - 1 / ((I / 100) / N + 1) ^ (N * Y)) / (I / 100)
  221. 2940 PRINT:PRINT "The principal on this loan is: "; USING "$$#,###,###.##";P
  222. 2950  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  223. 2960  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2820
  224. 2970  GOTO 40
  225. 2980  CLS:PRINT D$
  226. 2990  PRINT "    #15 REGULAR PAYMENT ON A LOAN.."
  227. 3000  PRINT 
  228. 3010  PRINT D$
  229. 3020  PRINT "WHAT IS THE LIFE OF THE LOAN IN YEARS"
  230. 3030  INPUT Y
  231. 3040 INPUT"WHAT IS TRHE ANNUAL INTEREST RATE ";I
  232. 3050  INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  233. 3060  INPUT "WHAT IS THE LOAN PRINCIPAL AMOUNT";P
  234. 3070  PRINT : PRINT :R = ((I / 100) * P / N) / (1 - 1 / ((I / 100) / N + 1) ^ (N * Y))
  235. 3080 I1 = I
  236. 3090 PRINT "Regular payments of "; USING "$$#,###,###.##";R;
  237. 3100 PRINT " made ";N;" times each year"
  238. 3110 PRINT "are required to satisfy"
  239. 3120 PRINT "a loan of "; USING "$$#,###,###.##";P;: PRINT " for a period of "; USING "###";Y;: PRINT" years"
  240. 3130 PRINT "at an interest rate of";I1;" pecent per annum."
  241. 3140  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  242. 3150  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 2980
  243. 3160  GOTO 40
  244. 3170  CLS:PRINT D$
  245. 3180  PRINT  TAB( 10)"#16  LAST PAYMENT ON A LOAN"
  246. 3190  PRINT 
  247. 3200  PRINT D$
  248. 3210  INPUT "WHAT IS THE LIFE OF THE LOAN IN YEARS";Y
  249. 3220  INPUT "ENTER THE ANNUAL INTEREST RATE";I
  250. 3230  PRINT 
  251. 3240  INPUT "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R
  252. 3250  PRINT 
  253. 3260  INPUT "HOW MANY PAYMENTS DO YOU MAKE EACH YEAR";N
  254. 3270  PRINT 
  255. 3280  INPUT "ENTER THE AMOUNT OF THE LOAN PRINCIPAL";P
  256. 3290  PRINT :I1 = I:I = I / 100:BO = P
  257. 3300  IF N * Y > 100 THEN  PRINT  TAB( 20)"WORKING THE PROBLEM"
  258. 3310  FOR J1 = 1 TO N * Y
  259. 3320 I2 =  INT ((BO * I / N) * 100 + .5) / 100
  260. 3330 A = R - I2
  261. 3340 BO = BO - A
  262. 3350  NEXT J1
  263. 3360  PRINT "THE LAST PAYMENT FOR THIS LOAN,"
  264. 3370  PRINT "WILL BE $"; INT ((R + BO) * 100 + .5) / 100
  265. 3380  PRINT : PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  266. 3390  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3170
  267. 3400  GOTO 40
  268. 3410  CLS:PRINT D$
  269. 3420  PRINT "     #17 REMAINING BALANCE ON A LOAN"
  270. 3430  PRINT 
  271. 3440  PRINT D$
  272. 3450  INPUT "ENTER THE NUMBERS OF PAYMENTS MADE EACH YEAR";N
  273. 3460  PRINT 
  274. 3470  INPUT "ENTER THE ANNUAL INTEREST RATE";I
  275. 3480  PRINT 
  276. 3490  INPUT "WHAT IS THE AMOUNT OF EACH PAYMENT";R
  277. 3500  PRINT 
  278. 3510  INPUT "WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P
  279. 3520  PRINT 
  280. 3530  PRINT "ENTER THE LAST PAYMENT MADE ,"
  281. 3540  INPUT "          (PAYMENT #, YEAR # )";N1,Y
  282. 3550  PRINT : PRINT "WORKING ON PROBLEM"
  283. 3560 I = I / 100
  284. 3570 BO = P
  285. 3580  FOR J1 = 1 TO N * (Y - 1) + N1
  286. 3590 I1 =  INT ((BO * I / N) * 100 + .5) / 100
  287. 3600 A = R - I1
  288. 3610 BO = BO - A
  289. 3620  NEXT J1
  290. 3630  PRINT : PRINT "THE REMAINING BALANCE IS $"; INT (BO * 100 + .5) / 100
  291. 3640  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  292. 3650  IF   LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3410
  293. 3660  GOTO 40
  294. 3670  CLS:PRINT D$
  295. 3680  PRINT  TAB( 10)"THE TERM OF A LOAN"
  296. 3690  PRINT 
  297. 3700  PRINT D$
  298. 3710  INPUT "ENTER THE NUMBER OF PAYMENTS EACH YEAR";N
  299. 3720  PRINT 
  300. 3730  INPUT "ENTER THE ANNUAL INTEREST RATE";I
  301. 3740  PRINT 
  302. 3750  INPUT "WHAT IS THE AMOUNT OF EACH REGULAR PAYMENT";R
  303. 3760  PRINT 
  304. 3770  INPUT "WHAT IS THE AMOUNT OF THE LOAN PRINCIPAL";P
  305. 3780  PRINT 
  306. 3790 Y =  - ( LOG (1 - (P * (I / 100)) / (N * R)) / ( LOG (1 + I / 100 / N) * N))
  307. 3800  PRINT "A TERM OF"; INT (Y * 10 + .5) / 10;"YEARS WILL SATISFY THIS LOAN."
  308. 3810  PRINT "SATISFY THIS SCHEDULE."
  309. 3820  PRINT : INPUT "DO YOU WANT TO RUN ANOTHER (Y/N)";Y$
  310. 3830  IF  LEFT$ (Y$,1) = "Y" THEN  GOSUB 4370: GOTO 3670
  311. 3840  GOTO 40
  312. 3850  CLS:PRINT D$
  313. 3860  PRINT "#19  THE ANNUAL INTEREST RATE ON A LOAN"
  314. 3870  PRINT D$
  315. 3880  PRINT "  ******** UNDER CONSTRUCTION ********"
  316. 3890  FOR I = 1 TO 2000: NEXT I
  317. 3900  GOTO 40
  318. 3910  CLS:PRINT D$
  319. 3920  PRINT "                         THE MORTGAGE AMORTIZATION TABLE"
  320. 3930  PRINT 
  321. 3940  PRINT "                           COMPUTE INTEREST PAYMENTS..."
  322. 3950  PRINT 
  323. 3960  PRINT D$
  324. 3970  PRINT D$
  325. 3980  REM  LEADING & TRAILING ZERO'S NOT ?"ED"
  326. 3990 C = 0
  327. 4000  INPUT "Enter Amount of Loan";A
  328. 4010  INPUT "Amount of Interest in Percent";J
  329. 4020  INPUT "Nunber of Years";N
  330. 4030 J = J / 100
  331. 4040 N = N * 12:I = J / 12:B = 1 + I:R = A * I / (1 - 1 / B ^ N)
  332. 4050  PRINT "Amount per Payment =";USING"$$,###,###.##";R
  333. 4060 Q = (R * N - A)
  334. 4080  PRINT "Total Interest=";USING"$$,###,###.##";Q
  335. 4090  PRINT "To Begin Listing Hit Any Key...":F=0
  336. 4100 A$=INKEY$
  337. 4110 IF A$="" THEN 4100
  338. 4120  PRINT :B = A
  339. 4130 GOSUB 4370
  340. 4140  PRINT "PMT     INTEREST    PRINCIPAL      BALANCE"
  341. 4150 C = C + 1:L = B * I:P = R - L:B = B - P:IF B<0 THEN B=0
  342. 4160 PRINT USING"###";C;:PRINT USING"$$,###,###.##";L;P;B
  343. 4170 F = F + 1
  344. 4180  IF F = 20 THEN 4280
  345. 4190 IF N>C THEN 4150
  346. 4200 D=R+B
  347. 4230  PRINT "Last Payment was...";USING"$$,###,###.##";D
  348. 4240  INPUT "Do You Want to Run Another (Y/N)";Y$
  349. 4250  IF  LEFT$ (Y$,1) = "Y" THEN 3910 ELSE 40
  350. 4280 PRINT"TO CONTINUE STRIKE ANY KEY, ESC TO STOP"
  351. 4290 A$=INKEY$: IF A$="" THEN 4290
  352. 4300 IF A$=CHR$(27) THEN GOSUB 4370: GOTO 4240
  353. 4310  PRINT 
  354. 4320 F = 0
  355. 4330 GOSUB 4370
  356. 4340 GOTO 4140
  357. 4370 CLS:RETURN
  358. 4380 CLS:RETURN
  359. 4390  REM 
  360. 4500 CLS:PRINT D$;:RETURN
  361. 4510 PRINT D$;:LOCATE 23,1:PRINT D$;:RETURN
  362. 4999 STOP
  363. 5000 CLS:LOCATE 12,39:COLOR 16,7:PRINT"Bye":PLAY"C11D11E11D6E11C4":COLOR 7:LOCATE 23,1:END
  364. 8880  A=((T / P) ^ (1 / Y) - 1) * 100
  365.